home *** CD-ROM | disk | FTP | other *** search
- #include "phylip.h"
-
- #define maxnodes 1200
- #define maxnch 30
- #define point '.'
- #define minus '-'
- #define stripewidth 3000L
- #define maxstripedepth 3500
- #define fontsize 3800
- #define pi 3.141592653
- #define epsilon 0.00001
- #define ebcdic EBCDIC
- #define segments 40
- #define xstart 10
- #define ystart 35
- #define LF 10
- #define CR 13
- #define escape (ebcdic ? '\'' : '\033')
- #define null '\000'
-
-
- typedef enum { treepen, labelpen} pentype;
- typedef enum { lw,hp,tek,ibmpc,mac,houston, decregis,epson, oki,fig,
- citoh,toshiba,pcx,pcl,pict,ray,xbm,other} plottertype;
-
- typedef enum { vertical, horizontal} growth;
- typedef enum {cladogram,phenogram,curvogram,eurogram,swoopogram} treestyle;
- typedef enum { penup,pendown} pensttstype;
-
- typedef Char plotstring[maxnch];
- typedef short fonttype[fontsize];
- typedef Char *striparray;
- typedef striparray striptype[maxstripedepth];
-
- typedef struct node {
- struct node *next, *back;
- boolean tip;
- plotstring nayme;
- long naymlength, tipsabove, index;
- double xcoord,ycoord,oldlen,length,
- r,theta,oldtheta,width,depth,tipdist,lefttheta,righttheta;
- } node;
-
- struct LOC_plottext { /* Local variables for plottext: */
- double height, compress;
- short *font;
- short coord;
- double heightfont, xfactor, yfactor, xfont, yfont, xplot, yplot, sinslope,
- cosslope, xx, yy;
- pensttstype penstatus;
- } ;
-
- typedef struct colortype {
- Char *name;
- double red, green, blue;
- } colortype;
-
- double lengthtext();
-
-